home *** CD-ROM | disk | FTP | other *** search
- object FormConfig: TFormConfig
- Left = 227
- Top = 103
- BorderStyle = bsDialog
- Caption = 'Preferences'
- ClientHeight = 356
- ClientWidth = 343
- Color = clBtnFace
- ParentFont = True
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 12
- object PageControl: TPageControl
- Left = 0
- Top = 0
- Width = 343
- Height = 309
- ActivePage = TabKey
- Align = alTop
- MultiLine = True
- TabOrder = 0
- object TabKey: TTabSheet
- Caption = 'Key'
- object ListKey: TListBox
- Left = 8
- Top = 12
- Width = 189
- Height = 241
- ItemHeight = 12
- Items.Strings = (
- 'Back Frame'
- 'Forward Frame'
- 'Next Layer'
- 'Previous Layer')
- TabOrder = 0
- OnClick = ListKeyClick
- end
- object HotKey: THotKey
- Left = 204
- Top = 12
- Width = 121
- Height = 18
- HotKey = 65
- InvalidKeys = [hcNone]
- Modifiers = []
- TabOrder = 1
- OnExit = HotKeyExit
- end
- object btnKeyDel: TButton
- Left = 220
- Top = 40
- Width = 63
- Height = 25
- Caption = 'Delete'
- TabOrder = 2
- OnClick = btnKeyDelClick
- end
- object Radio: TRadioGroup
- Left = 208
- Top = 196
- Width = 121
- Height = 57
- Caption = 'PopupMenu'
- Items.Strings = (
- 'Space-key'
- 'Alt-key')
- TabOrder = 3
- end
- end
- object TabDraw: TTabSheet
- Caption = 'View'
- ImageIndex = 1
- object LabelMinGrid: TLabel
- Left = 12
- Top = 88
- Width = 117
- Height = 24
- BiDiMode = bdLeftToRight
- Caption = 'Minimum magnification'#13#10'which enables grid'
- ParentBiDiMode = False
- end
- object LabelGrid: TLabel
- Left = 12
- Top = 128
- Width = 54
- Height = 12
- Caption = 'Grid Color:'
- end
- object ShapeGrid1: TShape
- Left = 140
- Top = 124
- Width = 49
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeGrid1MouseDown
- end
- object ShapeGrid2: TShape
- Tag = 1
- Left = 188
- Top = 124
- Width = 49
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeGrid1MouseDown
- end
- object LabelCGrid: TLabel
- Left = 12
- Top = 156
- Width = 99
- Height = 12
- Caption = 'Custom-Grid Color:'
- end
- object ShapeCGrid1: TShape
- Tag = 2
- Left = 140
- Top = 152
- Width = 49
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeGrid1MouseDown
- end
- object ShapeCGrid2: TShape
- Tag = 3
- Left = 188
- Top = 152
- Width = 49
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeGrid1MouseDown
- end
- object CheckHalf: TCheckBox
- Left = 12
- Top = 12
- Width = 253
- Height = 17
- Caption = 'Use halftone when reduced(slow)'
- TabOrder = 0
- end
- object CheckFit: TCheckBox
- Left = 12
- Top = 36
- Width = 237
- Height = 17
- Caption = 'Fit window when magnifying'
- TabOrder = 1
- end
- object CheckAutoZoom: TCheckBox
- Left = 12
- Top = 60
- Width = 237
- Height = 17
- Caption = 'Auto zoom on opening'
- TabOrder = 2
- end
- object GroupOnion: TGroupBox
- Left = 8
- Top = 184
- Width = 317
- Height = 73
- Caption = 'Onion Skin'
- TabOrder = 4
- object LabelOnion: TLabel
- Left = 12
- Top = 20
- Width = 41
- Height = 12
- Caption = 'Density:'
- end
- object TrackOnion: TTrackBar
- Left = 68
- Top = 16
- Width = 241
- Height = 21
- LineSize = 8
- Max = 192
- Min = 16
- Orientation = trHorizontal
- PageSize = 16
- Frequency = 8
- Position = 16
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- ThumbLength = 10
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackOnionChange
- end
- object CheckOnion: TCheckBox
- Left = 72
- Top = 44
- Width = 177
- Height = 17
- Caption = 'Loop the first and the last'
- TabOrder = 1
- end
- end
- object ComboMinGrid: TComboBox
- Left = 140
- Top = 92
- Width = 81
- Height = 20
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 3
- Items.Strings = (
- '200'
- '300'
- '400'
- '500'
- '600'
- '700'
- '800'
- '900'
- '1000'
- '2000'
- '3000'
- '4000')
- end
- end
- object TabLayer: TTabSheet
- Caption = 'Layer'
- ImageIndex = 4
- object LabelNoBg: TLabel
- Left = 28
- Top = 60
- Width = 146
- Height = 12
- Caption = '(Default value of Properties)'
- end
- object CheckLayerLoop: TCheckBox
- Left = 12
- Top = 12
- Width = 177
- Height = 17
- Caption = 'Loop the first and the last'
- TabOrder = 0
- end
- object CheckNoBG: TCheckBox
- Left = 12
- Top = 40
- Width = 305
- Height = 17
- Caption = 'Disable transparency of bottom layer'
- TabOrder = 1
- end
- object GroupLayCol: TGroupBox
- Left = 12
- Top = 80
- Width = 313
- Height = 109
- Caption = 'Default Canvas Color'
- TabOrder = 2
- object Label3: TLabel
- Left = 12
- Top = 24
- Width = 77
- Height = 12
- Caption = '4bpp(16colors):'
- end
- object Label4: TLabel
- Left = 12
- Top = 52
- Width = 83
- Height = 12
- Caption = '8bpp(256colors):'
- end
- object Label5: TLabel
- Left = 12
- Top = 80
- Width = 60
- Height = 12
- Caption = '15,16,24bpp:'
- end
- object ShapeTr24: TShape
- Left = 104
- Top = 76
- Width = 67
- Height = 20
- Cursor = crHandPoint
- OnMouseDown = ShapeTr24MouseDown
- end
- object EditTr4: TEdit
- Left = 104
- Top = 20
- Width = 53
- Height = 20
- TabOrder = 0
- Text = '0'
- end
- object UpDownTr4: TUpDown
- Left = 157
- Top = 20
- Width = 15
- Height = 20
- Associate = EditTr4
- Min = 0
- Max = 15
- Position = 0
- TabOrder = 1
- Wrap = False
- end
- object EditTr8: TEdit
- Left = 104
- Top = 48
- Width = 53
- Height = 20
- TabOrder = 3
- Text = '0'
- end
- object UpDownTr8: TUpDown
- Left = 157
- Top = 48
- Width = 15
- Height = 20
- Associate = EditTr8
- Min = 0
- Max = 255
- Position = 0
- TabOrder = 4
- Wrap = False
- end
- object CheckTr4: TCheckBox
- Left = 184
- Top = 20
- Width = 117
- Height = 17
- Caption = 'Transparent Color'
- TabOrder = 2
- end
- object CheckTr8: TCheckBox
- Left = 184
- Top = 48
- Width = 117
- Height = 17
- Caption = 'Transparent Color'
- TabOrder = 5
- end
- object CheckTr24: TCheckBox
- Left = 184
- Top = 76
- Width = 117
- Height = 17
- Caption = 'Transparent Color'
- TabOrder = 6
- end
- end
- end
- object TabFrm: TTabSheet
- Caption = 'Frame'
- ImageIndex = 3
- object LabelBG: TLabel
- Left = 12
- Top = 44
- Width = 90
- Height = 12
- Caption = 'Default BG Color:'
- end
- object ShapeBg: TShape
- Left = 136
- Top = 41
- Width = 67
- Height = 20
- Cursor = crHandPoint
- OnMouseDown = ShapeBgMouseDown
- end
- object CheckFrmLoop: TCheckBox
- Left = 12
- Top = 12
- Width = 177
- Height = 17
- Caption = 'Loop the first and the last'
- TabOrder = 0
- end
- end
- object TabTool: TTabSheet
- Caption = 'Tool'
- ImageIndex = 2
- object CheckUseSCol: TCheckBox
- Left = 12
- Top = 12
- Width = 249
- Height = 17
- Caption = 'Fill selection with second color'
- TabOrder = 0
- end
- object CheckNoFill: TCheckBox
- Left = 12
- Top = 36
- Width = 233
- Height = 17
- Caption = 'Not erase image under selection'
- TabOrder = 1
- end
- object CheckPickCur: TCheckBox
- Left = 12
- Top = 60
- Width = 261
- Height = 17
- Caption = 'Pick color on current layer only'
- TabOrder = 2
- end
- end
- object TabColor: TTabSheet
- Caption = 'ColorPalette'
- ImageIndex = 9
- object GroupDefPal: TGroupBox
- Left = 8
- Top = 8
- Width = 321
- Height = 81
- Caption = 'Default Color Palette'
- TabOrder = 0
- object Label1: TLabel
- Left = 12
- Top = 24
- Width = 77
- Height = 12
- Caption = '4bpp(16colors):'
- end
- object Label2: TLabel
- Left = 12
- Top = 52
- Width = 83
- Height = 12
- Caption = '8bpp(256colors):'
- end
- object EditPal4: TSelectFileEdit
- Left = 100
- Top = 20
- Width = 209
- Height = 20
- TabOrder = 0
- EditType = etCustom
- Mask = 'Color Palette (*.pal)|*.pal'
- ReadOnly = False
- UseEsc = False
- OnCustomClick = EditPal4CustomClick
- end
- object EditPal8: TSelectFileEdit
- Left = 100
- Top = 48
- Width = 209
- Height = 20
- TabOrder = 1
- EditType = etCustom
- Mask = 'Color Palette (*.pal)|*.pal'
- ReadOnly = False
- UseEsc = False
- OnCustomClick = EditPal4CustomClick
- end
- end
- object CheckPalGuide: TCheckBox
- Left = 8
- Top = 100
- Width = 289
- Height = 17
- Caption = 'Show Color Data'
- TabOrder = 1
- end
- end
- object TabLoad: TTabSheet
- Caption = 'Loading'
- ImageIndex = 8
- object GroupIcoTr: TGroupBox
- Left = 8
- Top = 8
- Width = 317
- Height = 85
- Caption = 'Treatment of ICO transparency'
- TabOrder = 0
- object LabelIcoTr: TLabel
- Left = 16
- Top = 56
- Width = 99
- Height = 12
- Caption = 'Replacement Color:'
- end
- object ShapeIcoTr: TShape
- Left = 132
- Top = 52
- Width = 65
- Height = 21
- Cursor = crHandPoint
- OnMouseDown = ShapeIcoTrMouseDown
- end
- object ComboIcoTr: TComboBox
- Left = 16
- Top = 20
- Width = 181
- Height = 20
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 0
- OnClick = ComboIcoTrClick
- Items.Strings = (
- 'Transparent Color of Frame'
- 'Alpha Channel of Layer')
- end
- end
- end
- object TabSave: TTabSheet
- Caption = 'Saving'
- ImageIndex = 7
- object LabelJQual: TLabel
- Left = 16
- Top = 16
- Width = 64
- Height = 12
- Caption = 'JPG Quality:'
- end
- object EditJQual: TEdit
- Left = 108
- Top = 12
- Width = 53
- Height = 20
- TabOrder = 0
- Text = '1'
- end
- object UpDownJQual: TUpDown
- Left = 161
- Top = 12
- Width = 15
- Height = 20
- Associate = EditJQual
- Min = 1
- Position = 1
- TabOrder = 1
- Wrap = False
- end
- object CheckGifOpt: TCheckBox
- Left = 16
- Top = 48
- Width = 97
- Height = 17
- Caption = 'Optimize GIF'
- TabOrder = 2
- end
- end
- object TabSystem: TTabSheet
- Caption = 'System'
- ImageIndex = 5
- object GroupPopup: TGroupBox
- Left = 4
- Top = 8
- Width = 325
- Height = 173
- Caption = 'PopupMenu'
- TabOrder = 0
- object TreePopup: TTreeView
- Left = 12
- Top = 24
- Width = 221
- Height = 133
- HideSelection = False
- Indent = 19
- PopupMenu = PopupMenu1
- ReadOnly = True
- TabOrder = 0
- OnDblClick = TreePopupDblClick
- OnMouseDown = TreePopupMouseDown
- end
- object Button2: TButton
- Left = 244
- Top = 28
- Width = 65
- Height = 25
- Action = actUp
- TabOrder = 1
- end
- object Button3: TButton
- Left = 244
- Top = 64
- Width = 65
- Height = 25
- Action = actDown
- TabOrder = 2
- end
- end
- end
- object TabCode: TTabSheet
- Caption = 'Code'
- ImageIndex = 6
- object LabelCode: TLabel
- Left = 12
- Top = 24
- Width = 28
- Height = 12
- Caption = 'Code:'
- end
- object EditCode: TEdit
- Left = 92
- Top = 20
- Width = 121
- Height = 20
- TabOrder = 0
- end
- end
- end
- object Button1: TButton
- Left = 180
- Top = 316
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- end
- object BtnCancel: TButton
- Left = 260
- Top = 316
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 2
- end
- object PopupMenu1: TPopupMenu
- AutoHotkeys = maManual
- Left = 300
- Top = 51
- object popAdd: TMenuItem
- Caption = 'Add'
- end
- object AddSeparator1: TMenuItem
- Action = actAddSep
- end
- object popAddPr: TMenuItem
- Action = actAddParent
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object popEdit: TMenuItem
- Action = actEdit
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object popDel: TMenuItem
- Action = actDelete
- end
- end
- object ActionList1: TActionList
- Left = 280
- Top = 39
- object actEdit: TAction
- Caption = 'Edit...'
- OnExecute = actEditExecute
- OnUpdate = actEditUpdate
- end
- object actAddParent: TAction
- Caption = 'Add Parent...'
- OnExecute = actAddParentExecute
- OnUpdate = actAddParentUpdate
- end
- object actUp: TAction
- Caption = 'Up'
- OnExecute = actUpExecute
- OnUpdate = actUpUpdate
- end
- object actDown: TAction
- Caption = 'Down'
- OnExecute = actDownExecute
- OnUpdate = actDownUpdate
- end
- object actAddSep: TAction
- Caption = 'Add Separator'
- OnExecute = actAddSepExecute
- OnUpdate = actAddParentUpdate
- end
- object actDelete: TAction
- Caption = 'Delete'
- OnExecute = actDeleteExecute
- OnUpdate = actDeleteUpdate
- end
- end
- end
-